home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / shufl1 / gsounds.bas < prev    next >
BASIC Source File  |  1995-05-09  |  3KB  |  61 lines
  1. 'Profile functions
  2. Declare Function WriteProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String) As Integer
  3. Declare Function GetProfileString Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer) As Integer
  4. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  5. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  6. Declare Function GetIniSections Lib "Kernel" Alias "GetPrivateProfileString" (ByVal lpAppName As String, ByVal lpKeyName As Long, ByVal lpDefault As String, ByVal lpBuffer As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  7. Declare Function KillSection Lib "Kernel" Alias "WritePrivateProfileString" (ByVal lpSectionName As String, ByVal lpKeyName As Long, ByVal lpString As Long, ByVal lpFileName As String) As Integer
  8. Declare Function KillIniKey Lib "Kernel" Alias "WritePrivateProfileString" (ByVal lpSectionName As String, ByVal lpKeyName As String, ByVal lpString As Long, ByVal lpFileName As String) As Integer
  9.  
  10. 'Other API Declarations
  11. Declare Sub MessageBeep Lib "User" (ByVal wType As Integer)
  12. Declare Sub sndPlaySound Lib "MMSystem.dll" (ByVal WavFile$, ByVal wFlags As Integer)
  13.  
  14. 'Type declaration for shadeform function
  15. Type RECT
  16.     left As Integer
  17.     top As Integer
  18.     right As Integer
  19.     bottom As Integer
  20. End Type
  21.  
  22. '-----------------------------------
  23. 'Common Dialog Control
  24. '-----------------------------------
  25. 'Action Property
  26. Global Const DLG_FILE_OPEN = 1
  27. Global Const DLG_FILE_SAVE = 2
  28. Global Const DLG_COLOR = 3
  29. Global Const DLG_FONT = 4
  30. Global Const DLG_PRINT = 5
  31. Global Const DLG_HELP = 6
  32.  
  33. 'File Open/Save Dialog Flags
  34. Global Const OFN_READONLY = &H1&
  35. Global Const OFN_OVERWRITEPROMPT = &H2&
  36. Global Const OFN_HIDEREADONLY = &H4&
  37. Global Const OFN_NOCHANGEDIR = &H8&
  38. Global Const OFN_SHOWHELP = &H10&
  39. Global Const OFN_NOVALIDATE = &H100&
  40. Global Const OFN_ALLOWMULTISELECT = &H200&
  41. Global Const OFN_EXTENTIONDIFFERENT = &H400&
  42. Global Const OFN_PATHMUSTEXIST = &H800&
  43. Global Const OFN_FILEMUSTEXIST = &H1000&
  44. Global Const OFN_CREATEPROMPT = &H2000&
  45. Global Const OFN_SHAREAWARE = &H4000&
  46. Global Const OFN_NOREADONLYRETURN = &H8000&
  47.  
  48.  
  49. Global gsInitDir As String
  50. Global gEventsArray() As String
  51. Global giNumEvents As Integer
  52. Global Const MB_OK = &H0
  53. Global Const MB_ICONHAND = &H10
  54. Global Const MB_ICONQUESTION = &H20
  55. Global Const MB_ICONEXCLAMATION = &H30
  56. Global Const MB_ICONASTERISK = &H40
  57. Global Const TRUE = -1
  58. Global Const FALSE = 0
  59. Global Const gSize = 255
  60.  
  61.